home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / E / EditString.cpt / EditString Stack / card_4341.txt < prev    next >
Text File  |  1990-06-22  |  2KB  |  88 lines
  1. -- card: 4341 from stack: in
  2. -- bmap block id: 4631
  3. -- flags: 0000
  4. -- background id: 3493
  5. -- name: findNth
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=88 top=212 right=234 bottom=188
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Do It
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put editString("findNth", background field "A", cd fld what, cd fld whichOne) into loc
  23.   put "The " & cd fld whichOne & " occurance of " "e& char 1 to 1 of cd fld what "e& " is at character position " & loc into fld b
  24.   select char loc to loc of bkgnd fld a
  25. end mouseUp
  26.  
  27.  
  28.  
  29. -- part 2 (field)
  30. -- low flags: 00
  31. -- high flags: 0002
  32. -- rect: left=323 top=214 right=231 bottom=354
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 0
  36. -- font id: 97
  37. -- text size: 9
  38. -- style flags: 0
  39. -- line height: 12
  40. -- part name: what
  41.  
  42.  
  43. -- part 3 (field)
  44. -- low flags: 00
  45. -- high flags: 0002
  46. -- rect: left=402 top=214 right=231 bottom=440
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 0
  50. -- font id: 97
  51. -- text size: 9
  52. -- style flags: 0
  53. -- line height: 12
  54. -- part name: whichOne
  55.  
  56.  
  57. -- part contents for background part 1
  58. ----- text -----
  59. findNth
  60.  
  61. -- part contents for background part 2
  62. ----- text -----
  63. findNth will return the character position of the Nth occurance of a specific character within a block of text.  The maximum size of the text (or data holder) is 30000 bytes.
  64.  
  65. -- part contents for background part 3
  66. ----- text -----
  67. editString("findNth", source, character, Nth)
  68. ‚Ä¢ source is the input text
  69. ‚Ä¢ character is the character to search for
  70. ‚Ä¢ Nth is the sequence number of occurances of character in source
  71.  
  72. put editString("findNth", field "A", ":", 3) into field "B" will return the character position of the third colon in field "A".  If the number to find is greater than the number of occurances then it will return count.  If the number to find is less than or equal to zero it will return zero.
  73.  
  74. -- part contents for background part 4
  75. ----- text -----
  76. My Hard Disk:HyperCard:Super Stuff:My Stuff:Your Stuff
  77.  
  78. -- part contents for card part 2
  79. ----- text -----
  80. :
  81.  
  82. -- part contents for card part 3
  83. ----- text -----
  84. 3
  85.  
  86. -- part contents for background part 5
  87. ----- text -----
  88. The 3 occurance of ":" is at character position 35